home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_playmdefmac.edge < prev    next >
Text File  |  1994-11-17  |  706b  |  37 lines

  1. /*
  2. ** $VER: Menu_PlayMDefMac.edge 1.3 (Thursday 11-Nov-93 19:17:19)
  3. **
  4. ** Playback the default macro till it returns an error
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* check to see if it exists */
  12. if exists('ram:edge.macro') then do
  13.     
  14.     /* put edge to sleep */
  15.     disableuser
  16.     
  17.     /* increase the error watermark */
  18.     'putenvvar _WE_ErrorLevel 6'
  19.     
  20.     /* loop N times */
  21.     do forever
  22.         'ram:edge.macro'
  23.         if result='RESULT' then nop
  24.         else if result~=0 then leave
  25.         
  26.         /* check to see if the user want's to give up yet */
  27.         checkabort
  28.         if rc~=0 then leave
  29.     end
  30.         
  31.     /* wake edge back up */
  32.     enableuser
  33. end
  34.  
  35. /* if not then complain */
  36. else 'requestnotify "There is no default macro."'
  37.